home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 1 / Gold Medal Software Volume 1 (Gold Medal) (1994).iso / prog / tpwprog5.arj / ALPHASTR.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-07-02  |  396 b   |  18 lines
  1. program AlphaStr;
  2. uses WinCrt;
  3. var
  4.   S: string[80];
  5.   Ch: Char;
  6. begin
  7.   S := '';
  8.   for Ch := 'A' to 'Z' do
  9.     S := S + Ch;
  10.   WriteBuf(@S[1], Length(S))
  11. end.
  12.  
  13.  
  14. {--------------------------------------------------------------
  15.   Copyright (c) 1991 by Tom Swan. All rights reserved.
  16.   Revision 1.00    Date: 4/09/1991
  17. ---------------------------------------------------------------}
  18.